# 
# 
# Author: Guochun Shen
# Data:   2011-12-18
# Project:spatial statistic
# Email:  shenguochun@gmail.com
###############################################################################


test.auto_tapply=function(){
	mydata("phylo_mark_data")
	mark=get_marks(data.ppp,marks="sp")
	re=unlist(auto_tapply(data.ppp,mark,function(x) x$n))
	checkEquals(length(re),length(unique(mark)))
	x=sort(re)
	y=sort(table(mark))
	checkEquals(names(x),names(y))
	checkEquals(as.numeric(x),as.numeric(y))
	
}
